home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / DELROW.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  384b  |  22 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3.  
  4. SUB DeleteRow (RowNum%, Attr%)
  5.  
  6.     REDIM Storage%(2000)
  7.  
  8.     IF RowNum% > 25 OR RowNum% < 1 THEN
  9.         EXIT SUB
  10.     END IF
  11.  
  12.     IF RowNum% <> 25 THEN
  13.         GetRow% = RowNum% + 1
  14.         GetScreen Storage%(1), GetRow%, 1, 25, 80
  15.         PutScreen Storage%(1), RowNum%, 1, 24, 80
  16.     END IF
  17.  
  18.     ColorPrint STRING$(80, 32), 25, 1, Attr%
  19.  
  20. END SUB
  21.  
  22.